﻿Namespace Views
    Public Class ViewMethodeDeCalcul
        'Private info As Common.AsynchronousOperationInfo
        'Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Button1.Click
        '    info = New Common.AsynchronousOperationInfo()
        '    With info
        '        .CanReportProgres = True
        '        .ShowUI = True
        '    End With
        '    ModuleTauxGaranti._app.StartAsyncOperation(New Common.AsynchronousOperationHandler(AddressOf DoWork), _
        '           info)

        'End Sub

        'Private Sub DoWork(ByVal [Module] As Type, ByVal Data() As Object)
        '    For i As Integer = 0 To 30
        '        Using info
        '            info.Progress = CDbl(CDbl(i) / CDbl(30))
        '            info.Message = "Je t'aime pour la " & i & "-eme fois"
        '        End Using
        '        Threading.Thread.Sleep(999)
        '    Next
        'End Sub
    End Class
End Namespace

